﻿Imports Negocio
Imports Entidades

Public Class Altas_Clientes

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim negocio As sistema = New sistema()
        Dim cliente As Cliente = New Cliente(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        cliente.agregartelefono(TextBox4.Text)
        cliente.agregartelefono(TextBox5.Text)
        cliente.agregartelefono(TextBox6.Text)
        negocio.agregar(cliente)
    End Sub
End Class
